5 IFA=0THENA=1:LOAD"MAGIC II",8,1
10 POKE52,62:POKE51,0:CLR
15 POKE53281,0:POKE53280,0:PRINT"[147]"CHR$(142)"":GOSUB60000
20 SYS57812"LEAPF-ML",8,0:POKE780,0:POKE781,0:POKE782,62:SYS65493
30 SYS16384
40 GETA$:IFA$="Q"THENPOKE53248+21,0:POKE53265,11:SYS64738
50 GOTO40
10000 OPEN15,8,15,"S0:FRED BOOT":CLOSE15:SAVE"FRED BOOT",8:END
60000 B9$="                                      "
60010 POKE214,14:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO7:PRINTB9$:NEXT:PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 B9$(0)="F R E D ' S   L E A P F R O G  V1"
60040 B9$(1)="BY FRED KARG"
60050 B9$(2)="(C) 1991 BY SOFTDISK, INC."
60060 B9$(3)="PUBLISHED ON LOADSTAR #82"
60070 B9$(4)="SUBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)="ALL RIGHTS RESERVED"
60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT
60099 RETURN